home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 31 / CD Expert nº 31 Unreal Mission Pack I.iso / PetWings / petwings.exe / PetWings.exe / RCDATA / 254 < prev    next >
Encoding:
Text File  |  1999-08-04  |  429 b   |  46 lines
  1. STOP 100
  2.  
  3. SET_FRAME 0
  4.  
  5. // Going down
  6. STOP 67
  7.  
  8. // While going up...
  9. STOP 15
  10.  
  11. LABEL 1
  12.  
  13. // Small photon
  14. REPEAT 12
  15. STOP 4
  16. REPEAT_END
  17.  
  18. // Big photon
  19. REPEAT 12
  20. STOP 4
  21. REPEAT_END
  22.  
  23. // Lazer (400 steps)
  24. GOSUB 2
  25. GOSUB 2
  26. GOSUB 2
  27. GOSUB 2
  28.  
  29. SET_FRAME 0
  30. STOP 80
  31.  
  32. GOTO_LABEL 1
  33.  
  34. //---------- Lazer (100 steps)
  35. LABEL 2 
  36.  
  37. PLAY_SOUND 16
  38. REPEAT 25
  39. SET_FRAME 1
  40. STOP 2
  41. SET_FRAME 2
  42. STOP 2
  43. REPEAT_END
  44.  
  45. RETURN
  46.